unit uaxPDFDev;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  PDFCombine_TLB, Dialogs, ElBtnCtl, ElPopBtn, ElBtnEdit,
  ElNameEdits, ElXPThemedControl, ElEdits, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edParams: TElEdit;
    edSrc: TElFileNameEdit;
    edDest: TElFileNameEdit;
    bnTest: TElPopupButton;
    Label4: TLabel;
    ed: TElMemo;
    Label5: TLabel;
    procedure bnTestClick(Sender: TObject);
    procedure Label4DblClick(Sender: TObject);
    procedure edSrcDialogExecute(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bnTestClick(Sender: TObject);
var
  cnv: IPDFCombineX;
begin
  cnv:=CoPDFCombineX.Create;
  cnv.Convert(ed.Lines.Text, edDest.Text, edParams.Text);
end;

procedure TForm1.Label4DblClick(Sender: TObject);
var
  cnv: IPDFCombineX;
begin
//  cnv:=CoPDFConverterX.Create;
//  cnv.About;
end;

procedure TForm1.edSrcDialogExecute(Sender: TObject);
begin
  ed.Lines.Add(edSrc.Text);
end;

end.
